home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / mlpmodul.sit / MacLogimoPlus Documentation / DEF4 Files / fxDeskTask.DEF next >
Encoding:
Modula Definition  |  1990-06-14  |  737 b   |  20 lines  |  [TEXT/PMED]
  1. DEFINITION MODULE fxDeskTask; (* Franz Kronseder / ETHZ / 06.08.85 *)
  2.  
  3. (* This module makes Macintosh Desk Accessories available in Modula-2 *)
  4. (* application programs which use the fxEventTasks Mechanism for dealing *)
  5. (* with Events. You just include "IMPORT fxDeskTask" and get the desk *)
  6. (* accesssories handled in the background. *)
  7. (* The implementation of fxDeskTask uses fxEventTasks and fxWindows *)
  8.  
  9. (*------------------------------------------------------------------------*)
  10. FROM fxEventTasks IMPORT TaskPtr;
  11. EXPORT QUALIFIED appleMenuID,fileMenuID,editMenuID,DeskTask;
  12.  
  13. CONST appleMenuID =   1; (* menu ID for desk accessory menu *)
  14.        fileMenuID = 256;
  15.        editMenuID = 275;
  16.  
  17. VAR DeskTask:TaskPtr;
  18.  
  19. END fxDeskTask.
  20.